home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / ink&imag / source / inkmenu.dir / 00045_idle script.ls < prev    next >
Encoding:
Text File  |  1996-05-10  |  1.1 KB  |  49 lines
  1. on exitFrame
  2.   global whichOver
  3.   if rollOver(18) then
  4.     if whichOver <> 18 then
  5.       set the text of cast "Display" to "Press to flip the Menu"
  6.       puppetSound("over")
  7.       set whichOver to 18
  8.     end if
  9.     go(the frame)
  10.     exit
  11.   end if
  12.   set noOver to 1
  13.   repeat with each = 3 to 9
  14.     if each = 9 then
  15.       if the frame = 25 then
  16.         go(the frame)
  17.         exit
  18.       end if
  19.     end if
  20.     if rollOver(each) then
  21.       if whichOver = each then
  22.         go(the frame)
  23.         exit
  24.       end if
  25.       puppetSprite(each + 8, 1)
  26.       set the visible of sprite (each + 8) to 1
  27.       puppetSprite(each + 8, 0)
  28.       updateStage()
  29.       set DisplayMe to the castNum of sprite each
  30.       set the text of cast "Display" to the name of cast DisplayMe
  31.       puppetSound("over")
  32.       set whichOver to each
  33.       set noOver to 0
  34.       updateStage()
  35.       next repeat
  36.     end if
  37.     puppetSprite(each + 8, 1)
  38.     set the visible of sprite (each + 8) to 0
  39.     puppetSprite(each + 8, 0)
  40.     updateStage()
  41.   end repeat
  42.   if noOver = 1 then
  43.     set the text of cast "Display" to EMPTY
  44.     set whichOver to 0
  45.   end if
  46.   updateStage()
  47.   go(the frame)
  48. end
  49.